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Ident #F00=005" 
MAORRRARAAAAAAAAAAAALALLALALALLALAL LALA LAL ERE RAR AREA SA RASA RARER RARER ERA RA AAA ARRAS SD 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL tad by al CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS ne is tt UNDER A LICENSE AND MAY BE USED 
ONLY IN accor ANCE WITH THE TERMS OF rate” bPCENSE AND. 
INCLUSION OF TH He ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR 
COPIES THEREOF RA ver BE PROVIDED OR OTHERWISE ~ AVAILA 
OTHER PERSON. NO. TITLE TO AND OWNERSHIP OF THE SOFTWARE 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE W 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITA 
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DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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$Scredef : Define create options array offsets 
$dscdef : Define string descriptor offsets 
$lordef : Define Librarian parameters 
$lorctltbl ; Define Library control table offsets 
Snamde f ; Define NAM block offset 


Set up FORTRAN COMMON block to allow FORTRAN main program to 
access Librarian data 


lbrdata, PIC, OVR, REL, GBL, SHR, NOEXE, RD, WRT, LONG 


lbr$c_read func_read 
lbr$c_create func_create 
Lbr$c_update func_update 
Lbr$c_typ_txt type_text 
Lbr$c_typ_htp type_help 
rms$_eo rmseof 


dsc$k_class_d class_dynamic 

offsets into create options array 
values are divided by 4 to convert byte 
offsets into longuord offsets 


cre$l_type/4 type of foneen 


crest. ke cone max key ie 
cre$ altoc/ initia Spray disk allocation 
crest eee number of ¢ 


cre$l_uhdmax/4 
cre$l—entall/4 


es | 
size of additions module header data | 
number of index entries to preallocate 
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-SBTTL nam_init = Initialize RMS NAM block 


> 
+ 


Initialize array to be an RMS NAM block 
Calling sequence: 
call nam_init (nam_array, result_desc) 


Inputs: 
nam_array Address of array of ? bytes to be initialized 
as a NAM block 
result_desc Address of string descriptor for resultant name 
string. 
Outputs: 


The nam_array is initialized as a NAM block, with the expanded 
and resultant name strings pointing to the string described by 
result_desc. 

Routine value: 


Always success 


-PSECT $Scode$, PIC, REL, SHR, EXE, RD, NOWRT 
.ENTRY nam_init,*M<R2, R3, R4, RS, R6> 


mov | 4(AP), 76 
movc5 #0, (SP), #0, #nam$c_bin, (r6) 


movl * 
SNAM_STORE NAM = R6,- 
BLN 


; Get address of NAM block 

; Zero the NAM block f 

; Get address of resultant name string descriptor 
; Initialize the NAM fields 


= #nam$c_bin,- block Length 
BID = #nam$c_bid,- block id 
RSS = dsc$u_tength (Rg) .- ; resultant name string size 
ESS = Secdy Long tach ),~ ; expanded name string size 
RSA = adsc$a_po ner(RO) ,=; resultant name string address 
ESA = adsc$a_pointer (RO) A expanded name string address 


eturn with success 


un” 
ao 
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do 
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